home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 4 / 64er_Magazin_Sonderheft_04_86-04_1986_Markt__Technik_de_Disk_1_of_2_Side_A.d64 / listing 06.d (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  311b  |  11 lines
  1. 20000 rem formatierte textausgabe ----------------------------------------------
  2. 20010 ifx$=""then20090
  3. 20020 iflen(x$)<40thenprintx$:goto20090
  4. 20030 iflen(x$)=40thenprintx$;:goto20090
  5. 20040 i$=left$(x$,41):ic=0:fori=1tolen(i$):ifmid$(i$,i,1)=" "thenic=i
  6. 20050 nexti:ific=0thenprintx$:goto20090
  7. 20060 i$=left$(i$,ic-1):iflen(i$)=40thenprinti$;
  8. 20070 iflen(i$)<40thenprinti$
  9. 20080 x$=right$(x$,len(x$)-ic):goto20010
  10. 20090 return
  11.